home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / LOGIN.PLP < prev    next >
Text File  |  1991-08-17  |  828b  |  25 lines
  1. /* auto pilot program ｢NEM 2.00｣           1991.2.24   By GOOSE(MAF00070) */
  2. /* Login(UID,PASSWD);
  3. **   NIFTYにloginする｡PASSWDが｢*｣ならBELLを鳴らしてキーボードからの入力を待つ｡
  4. **     UID:ユーザID
  5. **     PASSWD:パスワード or ｢*｣
  6. */              
  7. /* %Login { */
  8. /*  [UID,PASSWD] */
  9.   type({SVC\n});
  10.   wait(ABORTTIME,{discon},{Enter User-ID  --->},);
  11.   type(UID|{\n});
  12.   wait(ABORTTIME,{discon},{Enter Password --->},);
  13.   case(PASSWD={*},
  14.     {No},{type(PASSWD|{\n})},
  15.     {Yes},{Flash;Flash;
  16.            sendtype({Ch/1});chat({Yes});
  17.            wait(ABORTTIME,{discon},{ようこそ},{sendtype({Line})});
  18.           });
  19.   loop({wait(ABORTTIME,{discon},
  20.              {\n＞},{im({No})},
  21.              {\n続き (改行で表示},{type({\n});im({Yes})},
  22.              {\nmore>},{type({\n});im({Yes})})
  23.       });
  24. /* }; */
  25.